home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / examples / ReadArgs.d < prev    next >
Text File  |  2002-10-28  |  455b  |  17 lines
  1. // small example, of how to use shell arguments with PowerD
  2.  
  3. OPT    OSVERSION=37
  4.  
  5. MODULE    'startup/startup_dos'    // only open dos.library, we don't need more.
  6.  
  7. PROC main()
  8.     DEF    myargs:PTR TO LONG,rdargs
  9.     myargs:=[0,0,0,0]:LONG
  10.     IF rdargs:=ReadArgs('NAME/A,NUMBER/N,BOOL/S,OPT/K',myargs,NIL)
  11.         PrintF('NAME=\s\nNUMBER=\d\nBOOL=\d\nOPT=\s\n',myargs[0],Long(myargs[1]),myargs[2],myargs[3])
  12.         FreeArgs(rdargs)
  13.     ELSE
  14.         PrintFault(IOErr(),'readargs')
  15.     ENDIF
  16. ENDPROC
  17.